{pop pop}ifelse exec

}bind put}

}ifelse currentfont /ScaleMatrix get makefont setfont

dup /Encoding currentfont /Encoding get put definefont

]exch findfont exch makeblendedfont

{cleartomark pop findfont}{

/$fbf{FontDirectory counttomark 3 add -1 roll known

}bind put

currentdict end

currentdict Blend 2 index exec

}ifelse pop pop}forall pop pop pop pop}

{/makeblendedfont cvx errordict /typecheck get exec}ifelse

{/dicttype eq{6 copy 3 1 roll get exch 2 index exec}

dup 2 index length exch sub getinterval}if}if}ifelse put}

dup 0 get 0 le{dup 0 exch{0 gt{exit}if 1 add}forall

2 copy exch length 1 sub lt{1 add}if}ifelse}loop pop

3 index exch 3 index 1 sub exch put 3 copy put pop

{dup dup 1 sub 3 index exch get exch 3 index exch get

pop 2 index 2 index 0 put 0}if le{1 sub}

dup dup 1 sub 3 index exch get exch 3 index exch get 2 copy eq{

dup length 1 sub{dup 0 le{exit}if

1 index dup /StemSnapH eq exch /StemSnapV eq or{

2 index 3 1 roll put}for exch pop exch pop}ifelse 3 copy

{dup 10 index 6 index exec{9 index exch 9 index exec}if}if

dup 3 index exch get dup type /arraytype eq

{exch dup length array 1 index xcheck{cvx}if dup length 1 sub 0 exch 1 exch{

2 copy 8 index exch exec{pop 5 index 5 index exec}

/integertype eq exch /realtype eq exch or and}forall}ifelse}

{{length 1 index length ne{pop false}{true exch{type dup

exch pop exch pop 2 index /ForceBoldThreshold get gt 3 copy}

{dup 4 index exch get{2 index exch get add}{pop}ifelse}for

{5 index 0 0 1 3 index length 1 sub

{{dup type dup /arraytype eq{pop 1 index /ForceBold eq

exch pop exch pop}

0 0 1 3 index length 1 sub{dup 4 index exch get exch 3 index exch get mul add}for

{2 copy length exch length ne{/makeblendedfont cvx errordict /typecheck get exec}if

pop{/add load}if]cvx def

exch pop true exch}ifelse}for

3 1 roll /mul load 3 1 roll}ifelse 1 index{/add load 3 1 roll}if

{dup 1 eq{pop}{2 index{/exch load 4 1 roll}if

{pop 1 index{/exch load 3 1 roll}if /pop load 3 1 roll}

{1 index dup length 3 -1 roll sub get dup 0 eq

dup /$Blend exch[exch false exch dup length 1 sub -1 1

dup /WeightVector exch def

{pop pop}{def}ifelse}forall currentdict end def}forall

{dup load dup maxlength dict begin{false{/UniqueID /XUID}{3 index eq or}forall

{/Private /FontInfo}

{false{/FID /UniqueID /XUID}{3 index eq or}forall{pop pop}{def}ifelse}forall

exch dup maxlength dict begin

{/makeblendedfont cvx errordict /rangecheck get exec}if

{dup 0 exch{add}forall 1 sub abs .01 gt}{true}ifelse

{/makeblendedfont{8 pop 2 copy length exch /WeightVector get length eq

pop false}{0 get dup type /integertype ne{pop false}{8 lt}ifelse}ifelse}{true}ifelse

/makeblendedfont where{/makeblendedfont get dup type /operatortype eq{

/shareddict where{pop currentshared{setshared}true setshared shareddict}{{}userdict}ifelse dup

%. All rights reserved. Used in Fontographer with permission.

%. Copyright 1990, 1991,1992 Adobe Systems, Incorporated.